home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / FILE.STAMP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  668b  |  26 lines
  1. 10  DIM Y(6),M(3),D(4)
  2. 15  HOME 
  3. 20  INPUT "ENTER DATE IN FORM 08/27/85  ";D$
  4. 30  INPUT "ENTER TIME IN FORM 1520      ";TIME$
  5. 40 HR =  VAL( LEFT$(TIME$,2))
  6. 50  POKE 49043,HR
  7. 60 MIN =  VAL( RIGHT$(TIME$,2))
  8. 70  POKE 49042,MIN
  9. 80 MO =  VAL( LEFT$(D$,2))
  10. 90 DAY =  VAL( MID$ (D$,4,2))
  11. 100 YR =  VAL( RIGHT$(D$,2))
  12. 110  FOR I = 6 TO 0  STEP  -1
  13. 120 Y(I) =  INT(YR/2 ^I)
  14. 130 YV = YV +Y(I) *2 ^(I +1)
  15. 140 YR = YR -Y(I) *2 ^I
  16. 150  NEXT I
  17. 160  FOR I = 3 TO 0  STEP  -1
  18. 170 M(I) =  INT(MO/2 ^I)
  19. 180 MO = MO -M(I) *2 ^I
  20. 190  IF I <3  THEN MV = MV +M(I) *2 ^(I +5)
  21. 195  NEXT I
  22. 200 HB = YV +M(3)
  23. 210 LB = MV +DAY
  24. 220  POKE 49041,HB
  25. 230  POKE 49040,LB
  26. 240  PRINT  CHR$(4)"-STARTUP"